home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 8 (Internal Edition) / Apple R&P Lib Internal v8.0.iso / 5-Fonts & Software / Demo Software / Aldus PageMaker 4.0 Demo / Aldus / Aldus Prep next >
Text File  |  1990-05-16  |  35KB  |  1,655 lines
  1. % 209    55            AldusVersion/AldRevision:  This record must be first!!
  2. % Copyright (C) 1987 Aldus Corporation. All rights reserved.
  3.  
  4. /AldusDict2 325 dict def    
  5. AldusDict2
  6. begin                                                    
  7. /AldusVersion         209     def        
  8. /AldusRev            55        def        
  9. /bdef { bind def } bind def
  10. systemdict /currentpacking known
  11. {/AD_OldPacking currentpacking def
  12. true setpacking
  13. } if
  14. /AD_PrevMatrix         matrix     def        
  15. /AD_SomethingOnPage    false    def        
  16. /AD_OutlineWidth    30        def        
  17. /AD_ShadOffset        0.06    def     
  18. /AD_OLShadOffset    0.06    def     
  19. /AD_OLSmearFact        0.03    def     
  20. /AD_BoldSmearFact    0.03    def     
  21. /AD_ObliqueAngle    -0.21    def     
  22. /AD_TrueSetscreen /setscreen load def 
  23. /AD_NestedMirror false def        
  24. /AD_TextCutout false def    
  25. /BEGJOB                                             
  26. {    /AD_Invert        exch def
  27. dup AD_NestedMirror xor /AD_NestedMirror exch def
  28. /AD_MirrorFlag    exch def
  29. /AD_WideFlag    exch def
  30. /paperwid        exch def
  31. /paperht         exch def
  32. /AD_Resolution    1440 def
  33. /AD_PointsToUCS    AD_Resolution 72 div def
  34. AD_PrevMatrix currentmatrix pop
  35. /AD_PrevScreen [currentscreen] def
  36. /AD_PrevTransfer currenttransfer def
  37. /AD_StdScreen true def
  38. /STD_SCREEN
  39. {
  40. AD_StdScreen not
  41. {
  42. AD_PrevScreen cvx exec setscreen
  43. /AD_PrevTransfer load settransfer
  44. /AD_StdScreen true assign
  45. }if
  46. } def
  47. true _SetCoordSys
  48. version (23.) anchorsearch 
  49. {
  50. pop pop
  51. /truesetgray /setgray load def
  52. /setgray
  53. {
  54. mark
  55. AD_Invert
  56. {.0 .0 .06 .1 .28 .48 .56 .68 .82 .9 .98 1.0 }
  57. {1.0 1.0 .98 .9 .82 .68 .56 .48 .28 .1 .06 .0 }
  58. ifelse
  59. counttomark dup 3 add -1 roll exch
  60. 2 sub mul dup floor cvi
  61. dup 3 1 roll sub
  62. exch dup 
  63. 3 add index exch 2 add index dup
  64. 4 1 roll
  65. sub mul add
  66. counttomark 1 add 1 roll 
  67. cleartomark
  68. truesetgray
  69. } def
  70. }
  71. { pop }
  72. ifelse
  73. /screenAdjust 1 0 dtransform exch atan def
  74. /mirrorScreen AD_NestedMirror {/neg load} {{}} ifelse def
  75. /setscreen {exch screenAdjust add mirrorScreen exch AD_TrueSetscreen} def
  76. } def            
  77. /_SetCoordSys
  78. {
  79. /AD_OldSys exch def
  80. AD_WideFlag
  81. {    AD_OldSys
  82. {
  83. 90 rotate 
  84. 1 AD_PointsToUCS div dup neg scale
  85. }
  86. {
  87. 1 AD_PointsToUCS div dup neg scale
  88. paperht paperwid neg translate
  89. 90 rotate
  90. }
  91. ifelse
  92. }
  93. { 1 AD_PointsToUCS div dup neg scale
  94. 0 paperht neg translate
  95. } 
  96. ifelse
  97. AD_MirrorFlag
  98. { paperwid 0 translate
  99. -1 1 scale
  100. } 
  101. if
  102. /AD_DeviceScale
  103. 1 1 transform pop 0 0 transform pop sub abs 
  104. def
  105. } bdef
  106. /SETRES                                             
  107. {
  108. /AD_Resolution    exch def
  109. /AD_PointsToUCS    AD_Resolution 72 div def
  110. AD_PrevMatrix setmatrix
  111. false _SetCoordSys
  112. _DefinePatterns    
  113. } bdef            
  114. /SETOVERPRINT
  115. {
  116. setoverprint
  117. } bdef
  118. /SETTEXTCUTOUT
  119. {
  120. /AD_TextCutout exch def
  121. }    bdef
  122. /BEGPAGE                                             
  123. {    /AD_SomethingOnPage    false def
  124. }     bdef            
  125. /ENDPAGE                                             
  126. {    AD_SomethingOnPage 
  127. { save
  128. showpage 
  129. restore 
  130. } if
  131. }     def 
  132. /MUST_PRINT_PAGE
  133. {    /AD_SomethingOnPage    true def
  134. } bdef
  135. /ENDJOB                                             
  136. {    AD_PrevMatrix setmatrix
  137. }     bdef                                            
  138. /S_PSCRIPT                                            
  139. {    /AD_SomethingOnPage    true def
  140. }     bdef                                            
  141. /S_TEXTSEGBEG                                            
  142. {    /here save def
  143. /TX_RunDrawn false def
  144. newpath
  145. }     bdef                                            
  146. /S_TEXTSEGEND                                            
  147. {    TX_RunDrawn
  148. { here restore
  149. /AD_SomethingOnPage true def }
  150. { here restore } ifelse
  151. }     bdef                                            
  152. /S_WORKING
  153. {
  154. /AD_WorkingMemory exch def
  155. } bdef
  156. /S_LOADFONT
  157. {
  158. AldusDict2 /AD_TopOfFonts known exch
  159. { { AD_TopOfFonts restore } if }
  160. { not { save /AD_TopOfFonts exch def } if    }
  161. ifelse
  162. } bdef
  163. /SURSTR
  164. {
  165. AD_SomethingOnPage SUsv restore
  166. } bdef
  167. /SUSAVE
  168. {
  169. AldusDict2 /AD_TopOfFonts known 
  170. vmstatus exch sub exch pop AD_WorkingMemory lt 
  171. { dup { AD_TopOfFonts restore } if } if
  172. not                    
  173. { save /AD_TopOfFonts exch def } if    
  174. save /SUsv exch def /AD_SomethingOnPage exch def
  175. } bdef
  176. /_ftName 66 string def
  177. /_AutoRecode
  178. {    
  179. /recode exch def
  180. _ftName cvs
  181. dup length 7 gt
  182. {    dup 0 7 getinterval (|______) eq
  183. {    dup length 7 exch 7 sub getinterval 
  184. recode { FTRECODE } { FTRENAME } ifelse
  185. }
  186. { pop }
  187. ifelse
  188. }
  189. { pop } ifelse
  190. } bdef
  191. /SYM_SAV
  192. {
  193. save /SYMsv exch def    
  194. } bdef
  195. /SYM_RSTR
  196. {
  197. AD_SomethingOnPage
  198. SYMsv restore
  199. /AD_SomethingOnPage exch def
  200. } bdef
  201. /AD_save_xform    null def
  202. /SET_TX_XFORM
  203. {
  204. /m_x exch def        
  205. /r_angle exch def    
  206. /ref_y exch def
  207. /ref_x exch def        
  208. /AD_save_xform    save def
  209. ref_x ref_y translate    
  210. m_x
  211. {
  212. -1 1 scale
  213. } if
  214. r_angle neg rotate            
  215. ref_x neg ref_y neg translate    
  216. } bind def
  217. /CLEAR_TX_XFORM
  218. {
  219. AD_SomethingOnPage AD_save_xform restore
  220. /AD_SomethingOnPage exch def
  221. } bind def
  222. /SHADOWFLAG        16#1  def            
  223. /OUTLINEFLAG    16#2  def             
  224. /BOLDSMEAR        16#4  def             
  225. /OUTLINESMEAR    16#8  def             
  226. /ReENCODED        16#10 def            
  227. /BOLDPSBUMP        16#20 def            
  228. /ITALICOBLIQUE    16#40 def            
  229. /SET            
  230. {    
  231. count 5 eq not{6 array astore}if
  232. /AD_textcolor    exch def    
  233. /AD_fontbits    exch def    
  234. /AD_20EMS        exch def    
  235. 1 index FontDirectory exch known not 
  236. { 1 index ReENCODED AD_fontbits _iand _AutoRecode } if 
  237. BOLDPSBUMP AD_fontbits _iand
  238. {    1 add } if
  239. dup _ActivateFont
  240. ITALICOBLIQUE AD_fontbits _iand
  241. {     _ActivateObliqueFont 
  242. } if
  243. /AD_width_factor_internal AD_width_factor def
  244. AD_width_factor 1 ne                    
  245. {
  246. currentfont [AD_width_factor 0 0 1 0 0] makefont setfont
  247. } if
  248. /AD_EmNotMatch AD_20EMS 20 div (M) _ADStringWidth pop sub abs 1 gt def
  249. false SETTEXTCUTOUT
  250. }     bdef                                            
  251. /S_SETUPRUN /SET load def        
  252. /OUT                
  253. {    /here save def
  254. /runwidth        exch def
  255. /nspaces        exch def
  256. /nchars            exch def
  257. /textrun        exch def
  258. /letterspace    exch def    
  259. /wordspace        exch def
  260. /y1 exch def    /x1 exch def
  261. nchars 0 gt
  262. {    
  263. AD_textcolor dup _Gray?
  264. {setgray}
  265. {aload pop 
  266. {PREGISCOLOR}{PCOLOR}ifelse
  267. } ifelse
  268. /letterspace
  269. AD_EmNotMatch
  270. {    
  271. runwidth                    
  272. textrun _ADStringWidth pop 
  273. nchars dup 1 gt {1 sub} if
  274. letterspace mul add        
  275. nspaces wordspace mul add    
  276. sub                        
  277. nchars dup 1 gt {1 sub} if
  278. div                        
  279. }
  280. {    
  281. 0 } ifelse                     
  282. letterspace add def                
  283. SHADOWFLAG AD_fontbits _iand
  284. {    save
  285. OUTLINEFLAG AD_fontbits _iand
  286. {    _OLShadowOffset
  287. }
  288. {    
  289. AD_textcolor _Gray?{_ShadowScreen}if
  290. AD_textcolor _ShadowColor
  291. _ShadowOffset
  292. } ifelse 
  293. OUTLINEFLAG AD_fontbits _iand
  294. OUTLINESMEAR AD_fontbits _iand not and 
  295. {    _ActivateSolidFont
  296. _SetTextWidth
  297. } if 
  298. AD_TextCutout
  299. {1 setgray} if
  300. _ShowRun
  301. BOLDSMEAR AD_fontbits _iand
  302. {    _BoldSmearOffset _ShowRun
  303. } if 
  304. restore
  305. } if 
  306. OUTLINEFLAG AD_fontbits _iand 
  307. OUTLINESMEAR AD_fontbits _iand and
  308. {    _OLSmearRun
  309. }
  310. {    OUTLINEFLAG AD_fontbits _iand
  311. {    save
  312. _ActivateSolidFont
  313. _SetTextWidth
  314. AD_textcolor _Gray? AD_textcolor _White? or
  315. { AD_textcolor _White?
  316. {0}
  317. {_TextFillColor}
  318. ifelse 
  319. setgray }
  320. { 1 setgray 
  321. }ifelse
  322. _ShowRun
  323. restore
  324. } if 
  325. _ShowRun
  326. BOLDSMEAR AD_fontbits _iand
  327. {    _BoldSmearOffset _ShowRun
  328. } if 
  329. } ifelse 
  330. } if 
  331. here restore
  332. /AD_SomethingOnPage true def
  333. }     bdef                                            
  334. /S_OUTPUTRUN /OUT load def        
  335. /_ADStringWidth                                        
  336. {
  337. gsave closepath clip stringwidth grestore    
  338. }     bdef
  339. /_OLSmearRun                                        
  340. {    
  341. gsave _OLSmearOffset translate _ShowRun grestore            
  342. gsave _OLSmearOffset exch neg exch translate _ShowRun grestore            
  343. gsave _OLSmearOffset neg translate _ShowRun grestore                                         
  344. gsave _OLSmearOffset neg exch neg exch translate _ShowRun grestore    
  345. gsave 
  346. AD_textcolor _Gray? AD_textcolor _White? or
  347. { AD_textcolor _White?
  348. {0}
  349. { _TextFillColor}
  350. ifelse
  351. setgray }
  352. { 1 setgray 
  353. }ifelse
  354. _ShowRun grestore
  355. }     bdef
  356. /_TextFillColor
  357. {
  358. AD_TextCutout
  359. {1}
  360. {1 AD_textcolor sub} ifelse
  361. } bdef 
  362. /_ShowRun                                        
  363. {    
  364. x1 y1 moveto 
  365. wordspace 0 8#040 letterspace 0 textrun awidthshow
  366. }     bdef
  367. /AD_width_factor_internal        1 def            
  368. /_SetTextWidth
  369. {
  370. AD_width_factor_internal 1 ne                    
  371. {
  372. currentfont [AD_width_factor_internal 0 0 1 0 0] makefont setfont
  373. } if
  374. } bdef
  375. /AD_save_textwidth    null def        
  376. /SET_TEXT_WIDTH
  377. {
  378. /AD_width_factor_internal exch def    
  379. /AD_save_textwidth    save def
  380. _SetTextWidth                                                        
  381. } bdef
  382. /RESTORE_TEXT_WIDTH
  383. {
  384. AD_SomethingOnPage AD_save_textwidth restore
  385. /AD_SomethingOnPage exch def
  386. /AD_width_factor_internal 1 def
  387. } bdef
  388. /AD_width_factor        1    def
  389. /SET_TX_WIDTH
  390. {
  391. /AD_width_factor    exch def
  392. } bdef
  393. /CLEAR_TX_WIDTH
  394. {
  395. /AD_width_factor 1    def
  396. } bdef
  397. /S_UNDERLINE                                        
  398. {    /here save def
  399. count 7 eq not{6 array astore}if
  400. /color            exch def
  401. /pointsize        exch def
  402. /width            exch def
  403. /deltay            exch def
  404. /baseline        exch def
  405. /rightx            exch def
  406. /leftx            exch def
  407. currentfont /FontInfo known
  408. {    
  409. currentfont /FontInfo get
  410. /UnderlinePosition known
  411. {    /deltay 
  412. currentfont /FontInfo get 
  413. /UnderlinePosition get 
  414. currentfont /FontMatrix get 3 get mul 
  415. pointsize AD_fontscale AD_PointsToUCS 
  416. div div mul def
  417. } if 
  418. currentfont /FontInfo get
  419. /UnderlineThickness known
  420. {    /width
  421. currentfont /FontInfo get
  422. /UnderlineThickness get 
  423. currentfont /FontMatrix get 3 get abs mul 
  424. pointsize AD_fontscale AD_PointsToUCS 
  425. div div mul def
  426. } if 
  427. } if 
  428. /underliney 
  429. 0 baseline deltay add transform 
  430. round exch round exch itransform exch pop def
  431. color dup _Gray?
  432. {setgray}{aload pop 
  433. {PREGISCOLOR}{PCOLOR}ifelse
  434. }ifelse
  435. width setlinewidth
  436. SHADOWFLAG AD_fontbits _iand
  437. {    save
  438. OUTLINEFLAG AD_fontbits _iand 
  439. {    _OLShadowOffset
  440. }
  441. {    
  442. color _Gray?{_ShadowScreen}if
  443. color _ShadowColor
  444. _ShadowOffset
  445. } ifelse 
  446. leftx underliney rightx underliney _ShowUnderline                                 
  447. restore
  448. } if 
  449. leftx underliney rightx underliney _ShowUnderline
  450. OUTLINEFLAG AD_fontbits _iand
  451. OUTLINESMEAR AD_fontbits _iand not and 
  452. {    
  453. save
  454. color _Gray?{1 color sub setgray}
  455. {0 0 0 0 setcmykcolor 
  456. }ifelse
  457. /AD_OutlineWidth
  458. AD_OutlineWidth 1000 div AD_fontscale mul def
  459. width 3 AD_OutlineWidth mul ge
  460. { width 2 AD_OutlineWidth mul sub }
  461. { width 3 div } ifelse
  462. setlinewidth
  463. leftx AD_OutlineWidth add underliney
  464. rightx AD_OutlineWidth sub underliney _ShowUnderline
  465. restore
  466. } if 
  467. here restore
  468. /AD_SomethingOnPage true def
  469. }     bdef
  470. /_ShowUnderline                                        
  471. {
  472. newpath moveto lineto stroke    
  473. }     bdef
  474. /S_STRIKETHRU                                            
  475. {    /here save def
  476. count 4 eq not{6 array astore}if
  477. /color            exch def
  478. /y                exch def
  479. /rightx            exch def
  480. /leftx            exch def
  481. /y    0 y transform 
  482. round exch round exch itransform exch pop def
  483. color _Gray?
  484. {color setgray}{color aload pop 
  485. {PREGISCOLOR}{PCOLOR}ifelse
  486. }ifelse
  487. _StrikeThruWidth setlinewidth
  488. newpath
  489. leftx  y moveto
  490. rightx y lineto stroke
  491. here restore
  492. /AD_SomethingOnPage true def
  493. }     bdef                                            
  494. /DV_DRAW_TEXT                                            
  495. {    /here save def
  496. /text    exch def
  497. /y         exch def    
  498. /x         exch def
  499. Black setgray
  500. (Helvetica-Bold) FTRECODE
  501. /|______Helvetica-Bold 9 dup _ActivateFont 
  502. x y moveto
  503. text show                    
  504. here restore
  505. /AD_SomethingOnPage    true def
  506. }     bdef                                            
  507. /DV_DRAW_BOX                                            
  508. {    /here save def
  509. /draftflag exch def
  510. /shadowflag exch def
  511. /y2 exch def    /x2 exch def
  512. /y1 exch def    /x1 exch def
  513. AD_PointsToUCS 2 div setlinewidth
  514. newpath
  515. x1 y1 moveto
  516. x1 y2 lineto
  517. x2 y2 lineto
  518. x2 y1 lineto closepath 
  519. shadowflag
  520. { gsave STD_SCREEN 0.5 setgray fill grestore}
  521. { gsave
  522. 1.0 setgray fill
  523. grestore 
  524. 0.0 setgray stroke } ifelse
  525. draftflag
  526. { x1 y1 moveto
  527. x2 y2 lineto stroke
  528. x2 y1 moveto
  529. x1 y2 lineto stroke } if
  530. here restore
  531. /AD_SomethingOnPage    true def
  532. }     bdef
  533. /DV_DRAW_LINE                                            
  534. {    /here save def
  535. /lw exch def
  536. /y2 exch def    /x2 exch def
  537. /y1 exch def    /x1 exch def
  538. x1 y1 transform 
  539. round exch round exch itransform /y1 exch def /x1 exch def
  540. x2 y2 transform 
  541. round exch round exch itransform /y2 exch def /x2 exch def
  542. 0 lw transform 
  543. round exch round exch itransform /lw exch def pop
  544. lw setlinewidth
  545. 0 setseparationgray
  546. newpath
  547. x1 y1 moveto
  548. x2 y2 lineto stroke
  549. here restore
  550. /AD_SomethingOnPage    true def
  551. }     def 
  552. /DV_DRAW_CIRCLE                                            
  553. {    /here save def
  554. /lw exch def
  555. /r    exch def
  556. /y    exch def        /x exch def
  557. x y transform 
  558. round exch round exch itransform /y exch def /x exch def
  559. 0 r transform 
  560. round exch round exch itransform /r exch def pop
  561. 0 lw transform 
  562. round exch round exch itransform /lw exch def pop
  563. lw setlinewidth
  564. Black setgray
  565. newpath
  566. x y r 0 360 arc stroke
  567. here restore
  568. /AD_SomethingOnPage    true def
  569. }     bdef                                            
  570. /_ActivateFont                                        
  571. {    
  572. /AD_fontscale     exch AD_PointsToUCS mul def
  573. /AD_fontscaleX    exch AD_PointsToUCS mul def
  574. /AD_fontname     exch def
  575. AD_fontname findfont
  576. [ AD_fontscaleX 0 0 AD_fontscale neg 0 0 ] makefont
  577. setfont    
  578. }     bdef
  579. /_ActivateObliqueFont                                        
  580. {    
  581. AD_fontname findfont
  582. [ AD_fontscaleX 0 0 AD_fontscale neg 0 0 ] 
  583. [ 1 0 
  584. AD_ObliqueAngle 
  585. 1 0 0 ] matrix concatmatrix makefont setfont    
  586. }     bdef
  587. /_ActivateSolidFont                                        
  588. {    
  589. AD_solidfont 
  590. AD_fontscaleX AD_PointsToUCS div 
  591. AD_fontscale AD_PointsToUCS div _ActivateFont
  592. }     bdef
  593. /_ShadowOffset                                        
  594. {    
  595. AD_ShadOffset AD_fontscaleX mul AD_ShadOffset AD_fontscale mul translate    
  596. }     bdef
  597. /_OLShadowOffset                                        
  598. {    
  599. AD_OLShadOffset AD_fontscaleX mul AD_OLShadOffset AD_fontscale mul translate    
  600. }     bdef
  601. /_ShadowScreen                                        
  602. {    
  603. 100 AD_PrevScreen 1 get AD_PrevScreen 2 get setscreen
  604. }     bdef    
  605. /_ShadowColor                                        
  606. {    
  607. dup _Gray? exch dup _White? 3 -1 roll or
  608. { dup _White?
  609. {pop 1
  610. }if 
  611. 0.6 mul 0.8 exch sub setgray}
  612. {_ShadeColor
  613. }ifelse
  614. }     bdef
  615. /_ShadeColor
  616. {    
  617. /AldusTint .2 def 
  618. aload pop {PREGISCOLOR}{PCOLOR}ifelse
  619. /AldusTint 1 def
  620. }    bdef
  621. /_Gray?
  622. { 
  623. dup type 0 type eq exch type 0.0 type eq or
  624. } bdef
  625. /_White?
  626. {     
  627. dup type [] type eq
  628. {aload pop pop pop add add add 0 eq
  629. {true}{false
  630. }ifelse
  631. }{pop false
  632. }ifelse
  633. } bdef
  634. /PCOLOR
  635. {
  636. findcmykcustomcolor    
  637. AD_NonSepPat 
  638. {1 currentgray sub setcustomcolor}
  639. {AldusTint setcustomcolor}ifelse
  640. } def 
  641. /ndf
  642. {
  643. 1 index where
  644. {pop pop pop}{dup xcheck
  645. {bind
  646. }if
  647. def
  648. }ifelse
  649. } bdef    
  650. /setoverprint
  651. {
  652. AldusDict2 begin /AD_Overprint exch def end
  653. }ndf
  654. /currentoverprint
  655. {
  656. AldusDict2 /AD_Overprint get
  657. }ndf
  658. /setcmykcoloroverprint
  659. {
  660. 4{dup -1 eq{pop 0}if 4 1 roll}repeat setcmykcolor
  661. }ndf    
  662. /findcmykcustomcolor
  663. {    
  664. 5 /packedarray where 
  665. {pop packedarray}{array astore readonly
  666. }ifelse
  667. }ndf    
  668. /setcustomcolor
  669. {
  670. exch aload pop pop 4
  671. {4 index mul 4 1 roll
  672. } repeat
  673. setcmykcolor pop
  674. }ndf    
  675. /setcmykcolor
  676. {
  677. 1 exch sub _Ccmyk _Ccmyk _Ccmyk pop setrgbcolor
  678. }ndf    
  679. /customcolorimage
  680. {
  681. pop image 
  682. }ndf
  683. /separationimage
  684. {
  685. image
  686. }ndf
  687. /setseparationgray
  688. {
  689. setgray
  690. }ndf
  691. /_Ccmyk
  692. {
  693. dup 5 -1 roll sub 0 _Max exch
  694. }bdef    
  695. /_Max
  696. {
  697. 2 copy lt
  698. {exch
  699. }if
  700. pop
  701. } bdef
  702. /_OLSmearOffset                                        
  703. {    
  704. AD_OLSmearFact AD_fontscaleX mul AD_OLSmearFact AD_fontscale mul
  705. }     bdef
  706. /_BoldSmearOffset                                        
  707. {    
  708. AD_BoldSmearFact AD_fontscaleX mul AD_BoldSmearFact AD_fontscale mul translate
  709. }     bdef
  710. /_StrikeThruWidth                                        
  711. {    
  712. AD_fontscale 16 div
  713. }     bdef
  714. /_iand                                        
  715. {    and 0 ne       
  716. }     bdef
  717. /FTRENAME {
  718. dup (|______) exch ftMakeName cvn /NewName local
  719. FontDirectory NewName known
  720. {pop}
  721. {cvn findfont dup
  722. maxlength dict false copyDict
  723. dup /FontName known
  724. {dup /FontName NewName put} if
  725. NewName exch definefont pop
  726. } ifelse
  727. } bdef
  728. /FTRECODE {
  729. dup (|______) exch ftMakeName cvn /NewName local
  730. FontDirectory NewName known
  731. {pop}
  732. {cvn findfont dup
  733. maxlength dict false copyDict
  734. dup /FontName known
  735. {dup /FontName NewName put} if
  736. dup /Encoding MacEncoding put
  737. NewName exch definefont pop
  738. } ifelse
  739. } bdef
  740. /AD_encode_vector_size    256 def
  741. /AD_encode_vector    null    def
  742. /AD_doing_recoding false def
  743. /BEG_RECODE
  744. {
  745. dup (|______) exch ftMakeName cvn /NewName local
  746. FontDirectory NewName known
  747. {
  748. pop
  749. /AD_doing_recoding false def
  750. /AD_encode_vector null def
  751. }
  752. {cvn findfont dup
  753. maxlength dict false copyDict
  754. dup /FontName known
  755. {dup /FontName NewName put} if
  756. /AD_encode_vector AD_encode_vector_size array def
  757. dup begin Encoding AD_encode_vector copy pop end
  758. dup /Encoding AD_encode_vector put
  759. NewName exch definefont pop
  760. /AD_doing_recoding true def
  761. AD_encode_vector    
  762. dup
  763. } ifelse
  764. } bdef
  765. /ENCODE_CHAR
  766. {
  767. AD_doing_recoding
  768. {
  769. put
  770. dup
  771. }
  772. {
  773. pop
  774. pop
  775. } ifelse
  776. } bdef
  777. /END_RECODE
  778. {
  779. AD_doing_recoding
  780. {
  781. pop
  782. pop
  783. } if
  784. /AD_doing_recoding false def
  785. /AD_encode_vector null def
  786. } bdef
  787. /FTOUTLINE {
  788. ReENCODED FTOLINE
  789. } bdef
  790. /FTOLINE {
  791. /AD_fontbits exch def
  792. cvn /OlineName local
  793. dup /AD_solidfont exch def
  794. AD_solidfont FontDirectory exch known not 
  795. { AD_solidfont ReENCODED AD_fontbits _iand _AutoRecode } if 
  796. FontDirectory OlineName known
  797. {pop}
  798. {cvn findfont dup
  799. maxlength 2 add dict true copyDict
  800. dup /FontName known
  801. {dup /FontName OlineName put} if
  802. dup /PaintType 2 put
  803. dup /StrokeWidth AD_OutlineWidth put
  804. OlineName exch definefont pop
  805. } ifelse
  806. } bdef
  807. /AD_nameString1 66 string def            
  808. /ftMakeName {
  809. 1 index length /PrefixLen local
  810. dup length PrefixLen add AD_nameString1 exch 0 exch getinterval
  811. dup PrefixLen 4 -1 roll putinterval
  812. dup 0 4 -1 roll putinterval
  813. } bdef
  814. /copyDict {
  815. /NoUnique local
  816. begin
  817. { 1 index /FID ne
  818. NoUnique
  819. {2 index /UniqueID ne and} if
  820. { def } { pop pop } ifelse
  821. } forall
  822. currentdict
  823. end
  824. } bdef
  825. /MacEncoding 256 array def
  826. MacEncoding 0
  827. /Times-Roman findfont /Encoding get
  828. 0 128 getinterval
  829. putinterval
  830. MacEncoding 16#27 /quotesingle put
  831. MacEncoding 16#60 /grave put
  832. /Adieresis /Aring /Ccedilla /Eacute /Ntilde /Odieresis /Udieresis /aacute
  833. /agrave /acircumflex /adieresis /atilde /aring /ccedilla /eacute /egrave
  834. /ecircumflex /edieresis /iacute /igrave /icircumflex /idieresis /ntilde /oacute
  835. /ograve /ocircumflex /odieresis /otilde /uacute /ugrave /ucircumflex /udieresis
  836. /dagger /degree /cent /sterling /section /bullet /paragraph /germandbls
  837. /registersans /copyrightsans /trademarksans /acute /dieresis /notequal /AE /Oslash
  838. /infinity /plusminus /lessequal /greaterequal /yen /mu /partialdiff /summation
  839. /product /pi /integral /ordfeminine /ordmasculine /Omega /ae /oslash
  840. /questiondown /exclamdown /logicalnot /radical /florin /approxequal /Delta /guillemotleft
  841. /guillemotright /ellipsis /space /Agrave /Atilde /Otilde /OE /oe
  842. /endash /emdash /quotedblleft /quotedblright /quoteleft /quoteright /divide /lozenge
  843. /ydieresis /Ydieresis /fraction /currency /guilsinglleft /guilsinglright /fi /fl
  844. /daggerdbl /periodcentered /quotesinglbase /quotedblbase /perthousand
  845. /Acircumflex /Ecircumflex /Aacute
  846. /Edieresis /Egrave /Iacute /Icircumflex /Idieresis /Igrave /Oacute /Ocircumflex
  847. /apple /Ograve /Uacute /Ucircumflex /Ugrave /dotlessi /circumflex /tilde
  848. /macron /breve /dotaccent /ring /cedilla /hungarumlaut /ogonek /caron
  849. MacEncoding 128 128 getinterval astore pop
  850. /getAnInt{2 getinterval dup 0 get 16#100 mul exch 1 get add cvi}def
  851. /CharBitStr 30 string def
  852. /BuildCharDict 16 dict def
  853. /AFONT
  854. {
  855. gsave
  856. /FName local
  857. /BMFSize local
  858. 1 add /LastChar local
  859. /FirstChar local
  860. /DefChar LastChar FirstChar sub 2 mul def
  861. 20 dict dup 
  862. begin 
  863. 10 1 roll
  864. /LocTableLen local
  865. /OWTableLen local
  866. /BMRowLen local
  867. /PixelHeight local
  868. /FontWidth local
  869. /MaxWidth local
  870. /MaxKern local
  871. /Descent local
  872. /Ascent local
  873. /Bits BMRowLen PixelHeight mul string currentfile exch readhexstring pop def
  874. /LocTable LocTableLen string currentfile exch readhexstring pop def
  875. /OWTable OWTableLen string currentfile exch readhexstring pop def
  876. /FontType 3 def
  877. /FontMatrix matrix def
  878. /FontBBox[MaxKern Descent neg MaxWidth MaxKern add Ascent]def
  879. /Encoding 256 array def
  880. Encoding 0 MacEncoding 0 256 getinterval putinterval
  881. /Mummble 257 array def
  882. 0 1 256{Mummble exch DefChar put}for
  883. FirstChar 1 LastChar{Mummble exch dup FirstChar sub 2 mul put}for
  884. /BuildChar
  885. {
  886. BuildCharDict 
  887. begin
  888. /1Char local
  889. /FDict local
  890. FDict /Mummble get 1Char get /2Char local
  891. FDict /OWTable get 2Char getAnInt 16#FFFF eq
  892. {/2Char DefChar assign}if
  893. FDict /LocTable get 2Char getAnInt
  894. /BitLoc local
  895. FDict /LocTable get 2Char 2 add getAnInt
  896. BitLoc sub
  897. /BitWidth local
  898. BitLoc 8 mod /ShiftVal local
  899. 16#FF 8 ShiftVal sub
  900. dup neg /RemShift local
  901. bitshift 16#FF and /BMask local
  902. 16#FF 8 BitLoc BitWidth add 8 mod
  903. sub dup 8 ge{pop 0}if
  904. BitWidth 0 eq{pop 8}if
  905. bitshift /AMask local
  906. BitWidth ShiftVal add 7 add 8 idiv
  907. dup 0 eq{pop 1}if
  908. /ByteWidth local
  909. BitLoc 8 idiv
  910. /WhichRow local
  911. FDict /OWTable get 2Char get cvi /Offset local
  912. FDict /OWTable get 2Char 1 add get cvi /Charwidth local
  913. Charwidth 0 BMFSize divPoint
  914. FDict /MaxKern get FDict /Descent get neg BMFSize divPoint
  915. BitWidth Offset add FDict /MaxKern get add FDict /Ascent get BMFSize divPoint
  916. setcachedevice
  917. gsave
  918. ByteWidth 8 mul
  919. FDict /PixelHeight get
  920. true
  921. [FDict /PixelHeight get FDict /Descent get sub 1 add
  922. 0
  923. 0
  924. FDict /PixelHeight get FDict /Descent get sub 1 add neg
  925. Offset neg 0.5 add
  926. FDict /PixelHeight get FDict /Descent get sub 0.5 add]
  927. { 
  928. FDict /Bits get WhichRow
  929. ByteWidth getinterval
  930. CharBitStr copy /ThisRow local
  931. 16#100
  932. ByteWidth 1 sub 1 neg 0
  933. {    /iV local
  934. ThisRow iV get
  935. 1 index 16#100 eq{AMask and}if
  936. dup BMask and RemShift bitshift
  937. 3 1 roll ShiftVal bitshift
  938. add 16#FF and
  939. cvi ThisRow iV 3 -1 roll put
  940. }for
  941. pop ThisRow
  942. /WhichRow WhichRow FDict /BMRowLen get add assign
  943. } imagemask
  944. grestore
  945. end 
  946. }def 
  947. end
  948. FontDirectory FName cvn known
  949. {pop}
  950. {FName cvn exch definefont pop} ifelse
  951. grestore
  952. }def 
  953. /AldusTint 1 def    
  954. /AD_Overprint false def    
  955. /AD_NonSepPat false def     
  956. /const /def load def
  957. /var /def load def
  958. /local[/exch load /def load]cvx def
  959. /assign /def load def
  960. /incr{dup cvx exec 1 add assign}bdef
  961. /postIncr{dup cvx exec exch incr}bdef
  962. /SpaceChar 16#20 const
  963. /cvPA{2 array astore cvx}bdef
  964. /point{cvPA def}bdef
  965. /locPoint{3 1 roll point}bdef
  966. /pointXpoint{3 -1 roll mul 3 1 roll mul exch}bdef
  967. /pointDpoint{3 -1 roll exch div 3 1 roll div exch}bdef
  968. /setPoint{load astore pop}bdef
  969. /dupPoint{2 copy}bdef
  970. /addPoint{exch 4 -1 roll add 3 1 roll add}bdef
  971. /subPoint{exch 3 1 roll sub 3 1 roll sub exch}bdef
  972. /mulPoint{dup pointXpoint}bdef
  973. /divPoint{dup pointDpoint}bdef
  974. /exchPoint{4 2 roll}bdef
  975. /overPoint{3 index 3 index}bdef
  976. /anyStatD systemdict /statusdict known const
  977. /thisProduct anyStatD
  978. {statusdict /product known{statusdict /product get}{()}ifelse}
  979. {()}ifelse const
  980. /PerCentChg 1.0 -1.0 point
  981. /boxPath{/y2 local /x2 local /y1 local /x1 local
  982. x1 y1 moveto x2 y1 lineto x2 y2 lineto x1 y2 lineto
  983. closepath}bdef
  984. /dump{4{pop}repeat}bdef
  985. /rBoxPath{/r local /y2 local /x2 local
  986. /y1 local /x1 local
  987. x1 r add y1 moveto x2 y1 x2 y2 r arcto dump
  988. x2 y2 x1 y2 r arcto dump x1 y2 x1 y1 r arcto dump
  989. x1 y1 x2 y1 r arcto dump closepath}bdef
  990. /SaveMatrix matrix var
  991. /ButtCap   0 const
  992. /SquareCap 2 const
  993. /MiterJoin 0 const
  994. /BevelJoin 2 const
  995. /Black 0 const
  996. /White 1 const
  997. /Wide  0 const
  998. /Narrow 1 const
  999. /PictPostScript false var
  1000. /isHairline false var
  1001. /PBEGIN{
  1002. dup not {save /PSave exch def} if
  1003. /isLBO exch def
  1004. /PBotRight locPoint
  1005. /PTopLeft locPoint
  1006. isLBO not {newpath PTopLeft PBotRight boxPath clip} if newpath
  1007. isLBO {ButtCap}{SquareCap} ifelse setlinecap
  1008. MiterJoin setlinejoin
  1009. 3 setmiterlimit
  1010. AD_PointsToUCS setlinewidth
  1011. /deviceRound
  1012. {
  1013. dup
  1014. AD_DeviceScale mul round AD_DeviceScale div
  1015. dup 0 eq { pop } { exch pop } ifelse 
  1016. } def
  1017. /HairWidth 
  1018. AD_PointsToUCS 4 div 
  1019. AD_DeviceScale mul deviceRound dup 1.5 lt
  1020. { pop 0 } if
  1021. const
  1022. Black setgray
  1023. /LineScale 1 var
  1024. /LineWidth  AD_PointsToUCS var
  1025. /LineHeight AD_PointsToUCS var
  1026. /DoingWedge false var
  1027. /DoingArc   false var
  1028. AldusDict2 /PatternShade known not
  1029. {
  1030. /psb {} bdef                
  1031. /pse {} bdef
  1032. /PatternShade Black var
  1033. /DeclaredPattern <00> var
  1034. /PCurPat         <01> var 
  1035. } if
  1036. }bdef
  1037. /PEND{
  1038. newpath
  1039. isLBO not {PSave restore} if
  1040. /AD_SomethingOnPage    true def
  1041. }bdef
  1042. /SetPattern {
  1043. dup /PatternShade exch def setgray
  1044. } bdef
  1045. /bitison{
  1046. /ybit local /xbit local
  1047. PCurPat ybit PatWidth mul
  1048. xbit 8 idiv add get
  1049. 1 7 xbit 8 mod AD_NestedMirror {exch pop}{sub} ifelse bitshift
  1050. and 0 ne}bdef
  1051. /PSHADE{
  1052. STD_SCREEN
  1053. 100 div dup /PatternShade exch def 
  1054. /AD_NonSepPat true def    
  1055. setgray <01> /PCurPat local 
  1056. } def
  1057. /BK { /AD_NonSepPat true def Black setgray } bdef            
  1058. /WT { /AD_NonSepPat true def White setgray } bdef            
  1059. /PBLACK /BK load def                    
  1060. /PWHITE /WT load def                    
  1061. /PREGISCOLOR
  1062. {    
  1063. pop AD_NonSepPat
  1064. { pop currentgray}{AldusTint mul 1 exch sub}ifelse 
  1065. setseparationgray pop pop pop
  1066. } bdef
  1067. /PUSETHISPATTERN {
  1068. dup PCurPat eq {pop}{ PPATTERN } ifelse
  1069. PatternShade
  1070. /AD_NonSepPat true def     
  1071. setgray /VerifyUsedPattern false def
  1072. } bdef
  1073. /PUSEPATTERN {
  1074. VerifyUsedPattern
  1075. {DeclaredPattern PCurPat ne {DeclaredPattern PPATTERN} if
  1076. } if
  1077. PatternShade setgray
  1078. /VerifyUsedPattern false def
  1079. } bdef
  1080. /PDECLAREPATTERN {
  1081. /DeclaredPattern exch def
  1082. /VerifyUsedPattern true def
  1083. /AD_NonSepPat true def     
  1084. } bdef
  1085. /PatWidth 1 const
  1086. /PatSide 8 const
  1087. /PFreq 300 32 div const
  1088. /PPATTERN{/PCurPat local
  1089. /AD_NonSepPat true def    
  1090. /VerifyUsedPattern false def
  1091. 0 /Onbits local 0 /Offbits local
  1092. AD_Invert {{1 exch sub} settransfer} {{} settransfer} ifelse 
  1093. PFreq PerCentChg pop dup 0.96 eq
  1094. {pop}{div}ifelse 
  1095. 0 
  1096. {
  1097. 1 1 addPoint 2 divPoint PatSide mulPoint
  1098. cvi exch cvi exch bitison AD_Invert xor
  1099. {/Onbits incr 1}
  1100. {/Offbits incr 0}ifelse
  1101. }
  1102. setscreen
  1103. Offbits dup Onbits add div AD_Invert {1 exch sub} if SetPattern
  1104. /AD_StdScreen false assign}def
  1105. /vertLines{pop dup mul -2 mul 1 add}bdef
  1106. /sPat
  1107. {            
  1108. AD_Invert {{1 exch sub} settransfer} {{} settransfer} ifelse 
  1109. setscreen setgray
  1110. }def
  1111. /PALDUSSHADE
  1112. {
  1113. <11> /PCurPat local
  1114. /AD_NonSepPat true def     
  1115. /AD_StdScreen false assign
  1116. Wide eq
  1117. { 0.774 20 45 {vertLines} sPat }
  1118. { 0.643 30 45 {vertLines} sPat }
  1119. ifelse
  1120. } bdef
  1121. /PHAIRWIDTH
  1122. {
  1123. HairWidth setlinewidth /isHairline true def
  1124. } bdef
  1125. /LW {                
  1126. LineScale mul deviceRound /LineHeight exch def
  1127. LineScale mul deviceRound dup /LineWidth exch def
  1128. setlinewidth
  1129. /isHairline false def
  1130. }bdef
  1131. /PLNWIDTH /LW load def        
  1132. /PLNSCALE{div /LineScale exch def} bdef
  1133. /roundCoord
  1134. {
  1135. 0.5 add round 0.5 sub
  1136. } bdef
  1137. /roundPoint
  1138. {
  1139. transform
  1140. round exch round exch
  1141. itransform
  1142. } bdef
  1143. /adjCoord {
  1144. dup
  1145. 1 AD_DeviceScale div gt { deviceRound 2 div } { pop .5 AD_DeviceScale div } ifelse
  1146. } bdef
  1147. /pULAdj{ roundPoint currentlinewidth adjCoord LineHeight adjCoord addPoint }bdef
  1148. /pLRAdj{ roundPoint currentlinewidth adjCoord LineHeight adjCoord subPoint }bdef
  1149. /QD_LINE
  1150. {
  1151. /qd_save save def
  1152. /y2 exch def
  1153. /x2 exch def
  1154. /y1 exch def
  1155. /x1 exch def
  1156. x1 x2 gt
  1157. {
  1158. x1 y1 x2 y2
  1159. /y1 exch def
  1160. /x1 exch def
  1161. /y2 exch def
  1162. /x2 exch def
  1163. } if
  1164. newpath
  1165. y1 y2 gt
  1166. {
  1167. x1 y1 moveto
  1168. x2 y2 lineto
  1169. x2 LineWidth add
  1170. dup
  1171. y2 lineto
  1172. y2 LineHeight add lineto
  1173. x1 LineWidth add
  1174. y1 LineHeight add lineto
  1175. x1 y1 LineHeight add lineto
  1176. x1 y1 lineto
  1177. }
  1178. {
  1179. x1 y1 moveto
  1180. x1 LineWidth add y1 lineto
  1181. x2 LineWidth add
  1182. dup y2 lineto
  1183. y2 LineHeight add lineto
  1184. x2 y2 LineHeight add lineto
  1185. x1 y1 LineHeight add lineto
  1186. x1 y1 lineto
  1187. } ifelse
  1188. closepath eofill
  1189. qd_save restore    
  1190. } bdef
  1191. /PLINETO
  1192. {
  1193. PictPostScript 
  1194. {
  1195. moveto lineto
  1196. }
  1197. { 
  1198. /y2 exch def /x2 exch def /y1 exch def /x1 exch def
  1199. currentlinecap ButtCap setlinecap
  1200. newpath
  1201. x1 x2 eq y1 y2 eq and
  1202. {
  1203. LineWidth 1 le LineHeight 1 le and
  1204. { x1 y1 moveto } 
  1205. { x1 y1 
  1206. x1 LineWidth add y1 LineHeight add
  1207. boxPath fill}
  1208. ifelse
  1209. }
  1210. { y1 y2 eq             
  1211. { 
  1212. LineWidth x1 x2 lt 
  1213. { x2 add /x2 exch def }
  1214. { x1 add /x1 exch def }
  1215. ifelse
  1216. LineHeight setlinewidth 
  1217. x1 y1 LineHeight 2 div add roundPoint moveto
  1218. x2 y2 LineHeight 2 div add roundPoint lineto
  1219. mayStroke 
  1220. }
  1221. { x1 x2 eq             
  1222. { 
  1223. LineHeight y1 y2 lt 
  1224. { y2 add /y2 exch def }
  1225. { y1 add /y1 exch def }
  1226. ifelse
  1227. x1 LineWidth 2 div add y1 roundPoint moveto
  1228. x2 LineWidth 2 div add y2 roundPoint lineto
  1229. mayStroke
  1230. }
  1231. {                
  1232. x1 y1 pULAdj moveto x2 y2 pULAdj lineto mayStroke
  1233. }
  1234. ifelse 
  1235. }    
  1236. ifelse
  1237. }
  1238. ifelse
  1239. setlinecap            
  1240. }
  1241. ifelse
  1242. }bdef
  1243. /HairRect
  1244. {
  1245. save /here exch def
  1246. /y2 exch def /x2 exch def 
  1247. /y1 exch def /x1 exch def
  1248. PHAIRWIDTH newpath
  1249. x1 x2 sub abs y1 y2 sub abs lt
  1250. { x1 x2 add 2 div dup y1 roundPoint moveto y2 roundPoint lineto stroke}
  1251. { y1 y2 add 2 div dup x1 exch roundPoint moveto x2 exch roundPoint lineto stroke}
  1252. ifelse
  1253. here restore
  1254. } bdef 
  1255. /PHAIRLINE
  1256. {
  1257. count 4 gt
  1258. { 
  1259. newpath PHAIRWIDTH
  1260. addPoint 2 divPoint roundPoint moveto 
  1261. addPoint 2 divPoint roundPoint lineto pop pop
  1262. stroke
  1263. }
  1264. { HairRect }
  1265. ifelse
  1266. } bdef
  1267. /PHANGLINE
  1268. {
  1269. roundPoint /yb exch def /xr exch def 
  1270. roundPoint /yt exch def /xl exch def 
  1271. deviceRound /delta exch def 
  1272. { {yt delta sub /yt exch def} {yb delta add /yb exch def} ifelse } 
  1273. { {xl delta sub /xl exch def} {xr delta add /xr exch def} ifelse } 
  1274. ifelse
  1275. newpath 
  1276. 1 AD_DeviceScale div 2 div dup dupPoint 
  1277. xl yt addPoint exchPoint
  1278. xr yb exchPoint subPoint boxPath fill
  1279. } bdef
  1280. /PCURVETO
  1281. {
  1282. curveto
  1283. } bdef
  1284. /PMOVETO
  1285. {
  1286. moveto
  1287. } bdef
  1288. /PRECT{newpath pLRAdj exchPoint pULAdj exchPoint boxPath}bdef
  1289. /PRRECT { pLRAdj /Botts locPoint pULAdj /Tops locPoint 
  1290. currentlinewidth dup subPoint /Diams locPoint 
  1291. newpath SaveMatrix currentmatrix pop
  1292. Botts Tops subPoint /Sides locPoint
  1293. Sides pop abs Diams pop ge{Diams}{Sides}ifelse pop
  1294. Sides exch pop abs Diams exch pop ge{Diams}{Sides}ifelse exch pop 
  1295. /Diams locPoint
  1296. Diams 2 div /YRad local
  1297. 0 gt
  1298. {Diams exch pop    
  1299. 0 eq                
  1300. {1}
  1301. {Diams div}
  1302. ifelse
  1303. }
  1304. {1}ifelse 1 /PRRscale locPoint
  1305. Tops translate PRRscale scale 0 0 Sides PRRscale pointDpoint
  1306. Diams 0 gt exch 0 gt and{YRad rBoxPath}{boxPath}ifelse
  1307. SaveMatrix setmatrix}bdef
  1308. /POVAL{newpath SaveMatrix currentmatrix pop
  1309. 0 359 false pArc closepath
  1310. SaveMatrix setmatrix}bdef
  1311. /PARC{ newpath SaveMatrix currentmatrix pop
  1312. /DoingArc true assign
  1313. false pArc    
  1314. SaveMatrix setmatrix }bdef
  1315. /PWEDGE{newpath SaveMatrix currentmatrix pop
  1316. /DoingWedge true assign
  1317. true pArc closepath
  1318. SaveMatrix setmatrix }bdef
  1319. /modAdj{
  1320. dup 360 gt{360 sub}if
  1321. dup 0 lt{360 add}if}bdef
  1322. /pArc{/Fill local
  1323. /ArcAng local /BegAng local
  1324. pLRAdj /PLR locPoint
  1325. pULAdj /PUL locPoint
  1326. 360 BegAng ArcAng add sub 90 add modAdj /StartAng local
  1327. StartAng ArcAng add /EndAng local
  1328. PLR PUL subPoint 2 divPoint /Rad locPoint
  1329. PUL Rad addPoint translate
  1330. Rad neg scale
  1331. Fill{0 0 moveto}if
  1332. 0 0 1 StartAng EndAng
  1333. dupPoint eq
  1334. {pop pop 0 359 arc closepath}
  1335. {ArcAng 0 lt
  1336. {arcn}{arc}ifelse
  1337. }
  1338. ifelse
  1339. }bdef
  1340. /PBEGPOLY{
  1341. newpath pULAdj moveto
  1342. }bdef
  1343. /PBEGSMOOTHPOLY {
  1344. newpath
  1345. } bdef
  1346. /PPOLYPOINT {
  1347. pULAdj lineto
  1348. } bdef 
  1349. /PENDPOLY{
  1350. /Closed local
  1351. Closed{closepath}if
  1352. }bdef
  1353. /PENDSMOOTHPOLY {
  1354. PENDPOLY
  1355. } bdef
  1356. /PBEGRGN{mark}bdef
  1357. /PREGION{PRECT cleartomark}bdef
  1358. /PTXBEG {/PTSave1 save const} bdef
  1359. /PROTATE {
  1360. currentdict /PRotateSave known not
  1361. {save /PRotateSave exch def} if
  1362. 3 1 roll dupPoint neg exch neg exch 5 2 roll 
  1363. translate rotate translate
  1364. } bdef
  1365. /PHFLIP {
  1366. currentdict /PRotateSave known not
  1367. {save /PRotateSave exch def} if
  1368. dupPoint neg exch neg exch 4 2 roll 
  1369. translate -1  1 scale translate
  1370. } bdef
  1371. /PVFLIP {
  1372. currentdict /PRotateSave known not
  1373. {save /PRotateSave exch def} if
  1374. dupPoint neg exch neg exch 4 2 roll 
  1375. translate  1 -1 scale translate 
  1376. } bdef
  1377. /PROTATE_END
  1378. {
  1379. PRotateSave restore
  1380. } bdef
  1381. /PSCALETEXT {
  1382. AD_PointsToUCS mul div /Xscale exch def 
  1383. AD_PointsToUCS mul div /Yscale exch def
  1384. currentfont [ Xscale 0 0 Yscale 0 0 ] makefont setfont
  1385. /AD_fontscaleX AD_fontscaleX Xscale mul def
  1386. /AD_fontscale AD_fontscale Yscale mul def
  1387. } bdef
  1388. /PSTBEG {
  1389. userdict /md known not 
  1390. { userdict begin /md 0 def end } if
  1391. PBLACK /PictPostScript true def
  1392. } bdef
  1393. /PSTEND {
  1394. /PictPostScript false def
  1395. } bdef
  1396. /mayStroke{                
  1397. currentlinewidth 0 gt isHairline or
  1398. {
  1399. gsave
  1400. /s_matrix null def
  1401. /stroke_xform false def
  1402. DoingWedge  {MiterJoin setlinejoin} if 
  1403. currentlinewidth  1 AD_DeviceScale div sub setlinewidth
  1404. LineWidth LineHeight ne
  1405. {
  1406. /s_matrix matrix currentmatrix def
  1407. 1 LineHeight LineWidth div scale
  1408. /stroke_xform true def
  1409. } if
  1410. stroke        
  1411. stroke_xform {s_matrix setmatrix} if
  1412. grestore
  1413. } if
  1414. /DoingWedge false assign
  1415. } bdef
  1416. /RESET_PAT_SEP
  1417. {
  1418. /AD_NonSepPat false def
  1419. } bdef
  1420. /PFRAME{mayStroke RESET_PAT_SEP}bdef
  1421. /PPAINT
  1422. {
  1423. mayStroke gsave eofill grestore RESET_PAT_SEP
  1424. }bdef 
  1425. /PERASE
  1426. {
  1427. mayStroke gsave eofill grestore RESET_PAT_SEP
  1428. }bdef 
  1429. /PFILL 
  1430. {
  1431. mayStroke gsave eofill grestore RESET_PAT_SEP
  1432. }bdef 
  1433. /PTINT
  1434. {
  1435. 100 exch sub 100 div /AldusTint exch def
  1436. } bdef
  1437. /PRESETTINT
  1438. {
  1439. AldusTint 1 eq not 
  1440. {/AldusTint 1 def
  1441. }if
  1442. } bdef    
  1443. /PHORZSHADE    
  1444. {
  1445. 0 eq    
  1446. {/widehorz}{/narrowhorz
  1447. }ifelse findfont
  1448. _OpaquePatternfill
  1449. } bdef
  1450. /PVERTSHADE    
  1451. {
  1452. 0 eq    
  1453. {/widevert}{/narrowvert
  1454. }ifelse findfont
  1455. _OpaquePatternfill
  1456. } bdef
  1457. /PHATCHSHADE    
  1458. {
  1459. 0 eq    
  1460. {/widehatch}{/narrowhatch
  1461. }ifelse    findfont
  1462. _OpaquePatternfill
  1463. } bdef
  1464. /PDIAGSHADE    
  1465. {
  1466. 0 eq    
  1467. {/widediag}{/narrowdiag
  1468. }ifelse findfont
  1469. _OpaquePatternfill
  1470. } bdef
  1471. /_SetCoords
  1472. {
  1473. /y2 local /x2 local /y1 local /x1 local
  1474. } bdef
  1475. /_DefinePattern { 
  1476. 7 dict begin
  1477. /FontDict 9 dict def
  1478. FontDict begin
  1479. /cache exch def
  1480. /key exch def
  1481. /proc exch cvx def
  1482. /mtx exch matrix invertmatrix def
  1483. /height exch def
  1484. /width exch def
  1485. /ctm matrix currentmatrix def
  1486. /ptm matrix identmatrix def
  1487. /str
  1488. (12345678901234567890123456789012)
  1489. def
  1490. end
  1491. /FontBBox [ 
  1492. 0 0 FontDict /width get
  1493. FontDict /height get
  1494. ] def
  1495. /FontMatrix FontDict /mtx get def
  1496. /Encoding StandardEncoding def
  1497. /FontType 3 def
  1498. /BuildChar { 
  1499. pop begin
  1500. FontDict begin
  1501. width 0 cache { 
  1502. 0 0 width height setcachedevice
  1503. }{ 
  1504. setcharwidth
  1505. } ifelse
  1506. 0 0 moveto width 0 lineto
  1507. width height lineto 0 height lineto
  1508. closepath clip newpath
  1509. gsave proc grestore
  1510. end end
  1511. } def
  1512. FontDict /key get currentdict definefont
  1513. end
  1514. } bind def
  1515. /_Patternpath { 
  1516. dup type /dicttype eq { 
  1517. begin FontDict /ctm get setmatrix
  1518. }{ 
  1519. exch begin FontDict /ctm get setmatrix
  1520. concat
  1521. } ifelse
  1522. currentdict setfont
  1523. FontDict begin
  1524. FontMatrix concat
  1525. width 0 dtransform
  1526. round width div exch round width div exch
  1527. 0 height dtransform
  1528. round height div exch
  1529. round height div exch
  1530. 0 0 transform round exch round exch
  1531. ptm astore setmatrix
  1532. pathbbox
  1533. height div ceiling height mul 4 1 roll
  1534. width div ceiling width mul 4 1 roll
  1535. height div floor height mul 4 1 roll
  1536. width div floor width mul 4 1 roll
  1537. 2 index sub height div ceiling cvi exch
  1538. 3 index sub width div ceiling cvi exch
  1539. 4 2 roll moveto
  1540. FontMatrix ptm invertmatrix pop
  1541. { 
  1542. gsave
  1543. ptm concat
  1544. dup str length idiv { 
  1545. str show
  1546. } repeat
  1547. dup str length mod str exch
  1548. 0 exch getinterval show
  1549. grestore
  1550. 0 height rmoveto
  1551. } repeat
  1552. pop
  1553. end end
  1554. } bind def
  1555. /_Patternfill { 
  1556. gsave
  1557. clip _Patternpath
  1558. grestore
  1559. newpath
  1560. } bind def
  1561. /_OpaquePatternfill { 
  1562. gsave
  1563. 0 0 0 0 setcmykcolor
  1564. fill
  1565. grestore
  1566. _Patternfill
  1567. } bind def
  1568. /_DefinePatterns
  1569. {
  1570. /AD_PatternLW .009375 AD_Resolution mul def
  1571. /narrowdiagunit .046666 AD_Resolution mul def
  1572. narrowdiagunit narrowdiagunit [1 0 0 1 0 0]
  1573. {                
  1574. SquareCap setlinecap
  1575. 0 narrowdiagunit 2 div moveto narrowdiagunit 2 div 0 lineto
  1576. narrowdiagunit 2 div narrowdiagunit moveto 
  1577. narrowdiagunit narrowdiagunit 2 div lineto 
  1578. AD_PatternLW setlinewidth stroke
  1579. } bind
  1580. /narrowdiag true _DefinePattern pop
  1581. /widediagunit .073333 AD_Resolution mul def
  1582. widediagunit widediagunit [1 0 0 1 0 0]
  1583. {                SquareCap setlinecap
  1584. 0 widediagunit 2 div moveto widediagunit 2 div 0 lineto
  1585. widediagunit 2 div widediagunit moveto 
  1586. widediagunit widediagunit 2 div lineto 
  1587. AD_PatternLW setlinewidth stroke
  1588. } bind
  1589. /widediag true _DefinePattern pop
  1590. /narrowhorzunit .053333 AD_Resolution mul def
  1591. narrowhorzunit narrowhorzunit [1 0 0 1 0 0]
  1592. {                
  1593. SquareCap setlinecap
  1594. 0 narrowhorzunit 2 div moveto
  1595. narrowhorzunit narrowhorzunit 2 div lineto
  1596. AD_PatternLW setlinewidth stroke
  1597. } bind
  1598. /narrowhorz true _DefinePattern pop
  1599. /widehorzunit .106666 AD_Resolution mul def
  1600. widehorzunit widehorzunit [1 0 0 1 0 0]
  1601. {
  1602. SquareCap setlinecap
  1603. 0 widehorzunit 2 div moveto
  1604. widehorzunit widehorzunit 2 div lineto
  1605. AD_PatternLW setlinewidth stroke
  1606. } bind
  1607. /widehorz true _DefinePattern pop
  1608. /narrowvertunit .053333 AD_Resolution mul def
  1609. narrowvertunit narrowvertunit [1 0 0 1 0 0]
  1610. {
  1611. SquareCap setlinecap
  1612. narrowvertunit 2 div 0 moveto 
  1613. narrowvertunit 2 div narrowvertunit lineto
  1614. AD_PatternLW setlinewidth stroke
  1615. } bind
  1616. /narrowvert true _DefinePattern pop
  1617. /widevertunit .106666 AD_Resolution mul def
  1618. widevertunit widevertunit [1 0 0 1 0 0]
  1619. {
  1620. SquareCap setlinecap
  1621. widevertunit 2 div 0 moveto 
  1622. widevertunit 2 div widevertunit lineto
  1623. AD_PatternLW setlinewidth stroke
  1624. } bind
  1625. /widevert true _DefinePattern pop
  1626. /narrowhatchunit .053333 AD_Resolution mul def
  1627. narrowhatchunit narrowhatchunit [1 0 0 1 0 0]
  1628. {
  1629. SquareCap setlinecap
  1630. narrowhatchunit 2 div 0 moveto 
  1631. narrowhatchunit 2 div narrowhatchunit lineto
  1632. 0 narrowhatchunit 2 div moveto
  1633. narrowhatchunit narrowhatchunit 2 div lineto
  1634. AD_PatternLW setlinewidth stroke
  1635. } bind
  1636. /narrowhatch true _DefinePattern pop
  1637. /widehatchunit .106666 AD_Resolution mul def
  1638. widehatchunit widehatchunit [1 0 0 1 0 0]
  1639. {
  1640. SquareCap setlinecap
  1641. widehatchunit 2 div 0 moveto 
  1642. widehatchunit 2 div widehatchunit lineto
  1643. 0 widehatchunit 2 div moveto
  1644. widehatchunit widehatchunit 2 div lineto
  1645. AD_PatternLW setlinewidth stroke
  1646. } bind
  1647. /widehatch true _DefinePattern pop
  1648. }
  1649. version (23.) anchorsearch
  1650. {pop pop def}{pop bdef} ifelse 
  1651. systemdict /currentpacking known
  1652. {AD_OldPacking setpacking} if
  1653. /AldusDone AldusVersion def            
  1654. end        
  1655.